home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / 1s_scrip.zip / D&DEXAMP.SCR < prev   
Text File  |  1991-08-31  |  2KB  |  68 lines
  1. ;
  2. ;  QuickLearn Script generated at 23:34:54 on 04-30-91
  3. ;  May require editing before use.
  4. ;
  5. Graphics ANSI
  6. TurnON   8_BIT
  7. TurnOFF  LINEFEED
  8. TurnOFF  XON/XOFF
  9. TurnOFF  NOISE
  10. TurnOFF  MUSIC
  11. TurnON   SCROLL
  12. TurnOFF  PRINT
  13. TurnOFF  ECHO
  14. TurnOFF  SPLIT
  15. TurnOFF  BS_DEL
  16. TurnON   STATUSLN
  17. TurnOFF  DOORWAY
  18.  
  19. TimeOut  600     ; Set Waitfor for 600 seconds
  20.  
  21. when
  22. when     "NO CARRIER" exit_lbl
  23. when     "Sysop CHAT active"  "Scot, I'm a script!^MScot, I'm a script!^M"
  24. when     "(Enter) to continue?"  "^M"
  25. when     "(Enter)=no change?"  "^M"
  26. when     "(H)elp, (M)ore?"  "^M"
  27. when     "want ANSI Graphics (enter)=no?"  "n q ns^M"
  28. when     "What is your first name?"  "firstname^M"
  29. when     " What is your last name?"  "lastname^M"
  30. when     "d (Dots will echo)?"  "password^M"
  31. when      "Since 'Last Read' (Enter)=yes?"  "n^M"
  32.  
  33. Waitfor  "Your Main Menu Command ?"
  34. Delay    100
  35. Send     "KMAIL^M"
  36.  
  37. exist  c:\slmr\d&dpcb.rep  send_rep
  38.  
  39. get_msgs:
  40. when
  41. when     "NO CARRIER" exit_lbl
  42. when     "Sorry, No Messages" "g^M"
  43. when     "Kmail Command?"  "d^M"
  44. when     "[G]oodbye When Done?"  "y^M"
  45. when     "Sysop CHAT active"  "Scot, I'm a script!^MScot, I'm a script!^M"
  46. when     "Starting Zmodem send" dl_msgs
  47.  
  48. Waitfor  "ZIP'ing your packet now..."
  49. dl_msgs:
  50. Delay    100
  51. Download Z C:\SLMR\
  52. goto     get_msgs
  53.  
  54. exit_lbl:
  55. delay     100
  56. Send     "ATZ^M"
  57. Return
  58.  
  59.  
  60. send_rep:
  61. waitfor  "Kmail Command?"
  62. delay    100
  63. send     "u^M"
  64. delay    1000
  65. upload   z  c:\slmr\d&dpcb.rep
  66. bigdos     "erase c:\slmr\d&dpcb.rep"
  67. goto     get_msgs
  68.